   setdisplay(320,240,32,1):paper(8^8-1):ink(0):pen(0):cls:mousehide
   z=3
select case z
   case 1: prints("1- chicken")
   case 2: prints("2- tasmanian devil")
   case 3: prints("3- cat")
   case 4: prints("4- donkey")
 end select
   waitkey(k_esc)